home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 50
/
Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso
/
Aminet
/
util
/
dir
/
CTree.lha
/
CTree
next >
Wrap
Text File
|
2002-05-12
|
1KB
|
39 lines
.K Rep1,Rep2
.bra {
.ket }
;
;$VER: 1.0 (12.05.2002) - © Hervé Dupont en collaboration avec Jacques Vanhove.
;
IF {Rep1} NOT GT " "
ECHO "*E[1mSyntaxe*E[0m : CTree <Rep1> <Rep2|->"
ECHO "Rep1 : Chemin de l'arborescence à copier. Ex. : dh0:tvx/*E[2mcelui-ci*E[0m."
ECHO "Rep2 : Destination de l'arborescence. Ex. : dh2:*E[2mICI*E[1m/*E[0m."
ECHO "Rep2 : - Mode test. Affichage sans création de l'arborescence."
ECHO "La terminaison *E[1m« : »*E[0m ou *E[1m« / »*E[0m dans Rep2 est obligatoire !"
QUIT
ENDIF
IF NOT exists {Rep1}
ECHO "*E[1m Le chemin « {Rep1} » n'est pas valide !*E[0m*N"
QUIT
ENDIF
IF {Rep2} NOT GT " "
ECHO "*E[1m Veuillez préciser une destination.*E[0m"
ECHO "*E[2m La terminaison doit être « : » ou « / » !*E[0m*N"
QUIT
ENDIF
PCD {Rep1}
ECHO "Lecture de l'arborescence initiale..."
list >ram:tparbrv01 lformat "MakeDir *"{Rep2}%P%S*"" dirs all
IF {Rep2} EQ "-"
ECHO "Mode Test, visualisation uniquement..."
type ram:tparbrv01
ELSE
ECHO "Création de l'arborescence dans {Rep2}..."
Failat 15
MakeDir {Rep2} all
Execute RAM:tparbrv01
Delete RAM:tparbrv01 quiet
ENDIF
PCD
Failat 10